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| -TITLE BOOTS MACROS 
TIDENT "V04=000" 


SPARS AAA AKER AAARAEAARAAAAEAAAAARERAAAEEEAEAARHAEARERAHRAHEeeeeeeeeeeeeeReeeeeeee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

* 

® 

® 

® 

THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LIC CENSE AND WITH THE 
INCLUSION OF He ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY. OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. > 
® 
THE INFORMATION IN. THIS) SOF TWARE afS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 
CORPORATION. ® 
® 

& 

* 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* See Geese . Sees eee 
e@eeneeeeeeeeneenneneee 
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: FACILITY: BOOTS 


: ABSTRACT: 
This module contains macros for the BOOTS facility 


? ENVIRONMENT: 
3 AUTHOR: STEVE BECKHARDT, CREATION DATE: 31-Oct-1979 


driver name!). Also unit disconnect routine. 


V03-002 KTA3034 Kerbey T. Altmann 02-Feb-1983 
Add cell for booting node name. 


MODIFIED BY: 

v03-005 KDM0073 thleen D. Morse 22-Aug-1983 

; panes TIMEDWAIT® mires to include load edirest for 

3 e.g.. address of RPB). 

: V03-004 KDMO00S8 thleen D. Mors 13-Jul-1983 

5 Add boot-time ‘onntiie TIMEDWAIT. macro for boot drivers. 
3 v03-003 KTA3058 Kerbey T. Altmann 20-Jun-1983 

: Add cell for boot device name (may be different from 


— 
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«SBTTL DECLARATIONS 


INCLUDE FILES: 


; MACROS: 


CPUTYPE 
DEVTYPE 
ACTION 


SIZE 
ADDR 


ENTRY 
DRIVRNAME 


AUXDRNAME 
UNIT_INIT 
UNIT_DISC 


DE VNAME 


-MACRO $B00T_DRIVER 


“ERROR 6 


NDC 
-WORD DEVTYPE 


SBOOT_DRIVER MACRO = SETS UP A TABLE ENTRY FOR A BOOT DEVICE DRIVER. 
“EACH TABLE ENTRY CONTAINS: 


CPU TYPE. DEFAULT = =-1 (DON'T CARE) 
BOOT DEVICE TYPE VALUE. DEFAULT = -1 (DON'T CARE) 


ACTION ROUTINE ADDRESS (ACTUALLY OFFSET — 
START OF TABLE ENTRY). DEFAULT = 0 (NONE). 


SIZE OF ENTIRE DRIVER IN BYTES. CANNOT BE DEFAULTED. 


ADDRESS OF DRIVER (ACTUALLY OFFSET FROM START 
OF TABLE ENTRY). CANNOT BE DEFAULTED. 


ADDRESS OF DRIVER ENTRY POINT “+ ew Pp o4e 4 
FROM ADDRESS OF DRIVER). DEFAULT = 0 (ADDRESS 
OF DRIVER AND ENTRY POINT ARE THE SAME). 


ADDRESS OF DRIVER NAME IN .ASCIC. (ACTUALLY 
OFT i ADDRESS OF DRIVER). CANNOT BE 


AUXDRNAME ROUTINE ADDRESS ol eee | 0 
START OF TABLE ENTRY). DEFAULT = 0 ( 
0 
( 


T 
) 
UNIT oh ROUTINE ADDRESS ot ae | SET 
START OF TABLE ENTRY). DEFAULT = 0 (NONE). 


SCONNECT ROUTINE ADDRESS (ACTUALLY OFFSET 
OF TABLE ENTRY). DEFAULT = 0 (NONE). 


E NAME ADDRESS ae OFFSET FROM 
ey pay? DEFAULT = FIRST TWO 


SE 
NE 
E 


FROM 


FF 
NO 
FF FROM 


@ 
ES 
so wo 
—~— 
si 


T 
C 
T 
F 


ml 2 


T 
ERS 0 


UTVPEs=1 DEVTYPE==1 ACTION. SIZE . ADDR, ~ 
Y,D RIVRNAME . ME -AUXDRNAME , uNiT_INit, 


“orse (DEV 


-PSECT BOOTDRIVR_4 
“.wORD  CPUTYP 
1 Q 


CPUTYPE 
; CPU TYPE CANNOT BE 0 ; 


2 


ean 
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If 2 ACTION 
-LONG 
“LONG ACTION-STABLE 
SENDC 
-LONG SIZE 
“LONG ADDR=STABLE 
IF ENTRY 
- LONG 
FF 
“LONG ENTRY-ADDR 
SENDC 
“LONG  DRIVRNAME=ADDR 
.IF 5 AUXOR 
-LONG 
“LONG | AUXDRNAME-ADDR 
SENDC 
.IF 8 UNIT_INIT 
ips 8 
[LONG UNIT_INIT-ADDR 
-ENDC 
.IF e UNIT_DISC 
-LONG 
“LONG UNIT_DISC-ADDR 
~ENDC 
.1F B DE VNAME 
“LONG — DRIVRNAME-ADDR*1 
;LONG  DEVNAME-ADDR 
-ENDC 
-PSECT BOOTDRIVR 2 
-ENDM $B00T_DRIVER 


; Define the offsets into the argument List passed by VMB to SYSBOOT 


-MACRO SVMBARGDEF ,GBL 
SDEFINI VMB,GBL,4 
SDEF VMBSO_F ILECACHE 
SDEF vnett- “hie -PEN 
vrese_rr PFRMAP 
5 VMB$Q"UCODE 
: VMBS$B_SYSTEMID 
SDEF VMBSL_FLAGS 
SDEF VMBSL_CI_HIPFN 
SDEF VM NAME 
SDEF VMBS$C -ARGSYICNT 
U  VMBSV>LOAD_SCS 


-BLKQ 1 ; FILEREAD coats Soper tas tor 
-BLKL 1 3; Lowest PFN found oy 

-BLKL 1 ; Ah hest PFN exclusive 

-BLKQ 1 s Bitmap descriptor 

-BLKQ 1 5 et ucode descriptor 
-BLKB 6 3 it SCS systemid 

BLK 1 3; Spar 

-BLKL 1 ; word. of flags 

-BLKL 1 3 Highest a used by Cl code 
-BLKQ 1 ; Booting node name 


Size of ar saene List in bytes 
Flag to SYSBOOT to load SC 


= l 
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SDEFEND VMB,GBL ,ARGDEF 
-ENDM SVMBARGDEF 


+ 
> 


TIMEDWAIT = Timed Wait Loop with Imbedded Tests 


Macro to wait for a specified interval of time. Uses a processor 
specific value established by system bootstrap to determine an 
approximate interval of time to wait instead of reading the 
processor clock. Instructions that test for various exit conditions 
may be imbedded within the wait loop, if so desired. 


This version of TIMEDWAIT is set up to be used with boot drivers. 
It_ contains the right kind of PIC references to EXESGL_TENUSEC and 
EXESGL_UBDELAY, for code that is moved within the address space of 
an image at run-time instead of remaining bound to the relative 
offset within the image given it at Link-time. (Note that these 
two counters are kept in the BQ0 structure and are referenced via 
BQOSL_UBDELAY and BQOSL_TENUSEC.) 


INPUTS: 


the number of 10 micro-second intervals to wait 
first instruction to imbed within wait loop 
second instruction to imbed within wait loop 
third instruction to imbed within wait loop 
fourth instruction to imbed within wait loop 
fifth instruction to imbed within wait loop 
sixth instruction to imbed within wait loop 

LBL - Label for exit from wait loop 

IMBEDLBL - Label for imbedded instructions in wait loop 

UBLBL - Label for UNIBUS SOBGTR Loop 


OUTPUTS: 


RO - indicates success of failure status. Success is defined as 
the bit being at the specified sense within the specified 
time interval. 

R1 = destroyed, all other registers preserved. 


OD es ee Re ee 


Fe 
MOmnEwt— 


-MACRO TIMEDWAIT TIME, INS1,INS2,INS3,INS4,INSS,1NS6,DONELBL ,?1MBEDLBL . ?UBLBL 


enlist cnd 
VL RPBS$L_IOVEC (RY) ,R1 ; Get address of IOVEC data cells. 
MULL3 TIME,BQO$L_TENUSEC(R1),R1 ; Calculate time. 
MOVZWL #SS$_NORMAL,RO ; Assume success. 
CLAL =(SPT 3; Reserve space for delay loop index. 


— 
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UBLBL : 


| DONELBL : 


ADDL aBOOSC UBDELAY, 


UBDELAY, (SP) 


MOVL 
SOBGTR thy Ubu 


am R) . IRBEDLEL 


LRL 

IF NOT_BLANK, DONELBL 
-ENDC 

TSTL (SP)+ 
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Get geeress of y — cells 
holdi ing delay loo 
ay loop count "Tisett. 

“> loop to slow bit tests down 

allow Unibus DMA to occur while 
testing a device fogreters 
Decrement interval count 
Count expired, return failure 


; Pop delay loop index off stack. 
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